home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 188 / 01-04 PC Format 188 [2006-06] DVD side 1_.iso / Menus / Scenes / HOME.dir / 00005_Script_ItemHandler < prev    next >
Text File  |  2006-04-20  |  701b  |  48 lines
  1. property Sp
  2. property myList
  3. property myTxtSp
  4. global winCount
  5. global cList
  6.  
  7.  
  8. on mouseEnter me
  9.   put Sp.member
  10.   cursor 280
  11.   myTxtSp.member.color = rgb(193,23,19)
  12.   Sp.member = member("button_Over")
  13. end
  14.  
  15.  
  16. on mouseLeave me
  17.   myTxtSp.member.color = rgb(0,0,0)
  18.   sp.member = member("button")
  19.   cursor -1
  20. end
  21.  
  22.  
  23. on init me, aListEntry
  24.   myList = aListEntry
  25.   Sp = sprite(me.spritenum)
  26.   myTxtSp = sprite(Sp.spritenum + 1)
  27. end
  28.  
  29. on mouseUp me
  30.   
  31.   sendAllsprites(#Unclick_SubMenu)
  32.   
  33.   if wincount < 5 then
  34.     wincount = wincount + 1
  35.   else
  36.     wincount = 1
  37.   end if
  38.   
  39.   AddWindow(wincount, myList.pPath)
  40.   
  41.   clearScriptedSprites(cList.itemmenu)
  42.   
  43.   
  44. end
  45.  
  46.  
  47.  
  48.